home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_191_Value List.bin < prev    next >
Text File  |  1995-11-23  |  11KB  |  174 lines
  1. ItemType: WIND
  2. Rect: 291,331,591,547
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Value List
  8. Script: if objValue="Open" then ┬  get wsGet(wdID,"theList","Text")┬  put the number of lines of it into num┬  if num<2 then┬    wsSet wdID,"Graph values","Disabled", "true"┬    wsSet wdID,"Prune List","Disabled", "true"┬    if num<1 then┬      wsSet wdID,"Clear List","Disabled", "true"┬    end if┬  end if┬  wsSet wdID,"num","Text",(num&" values")┬  if the short name of this bg="stocks" then┬    wsSet wdID,"value","Visible", "TRUE"┬    wsSet wdID,"price","Visible", "TRUE"┬    get wsGet(wdID,"price","Hilite")┬    wsSet wdID,"value","hilite",(not it)┬  else┬    wsSet wdID,"value","Visible", "false"┬    wsSet wdID,"price","Visible", "false"┬  end if┬end if
  9. Params: i3_Text┬i4_Text┬i0_TopLeft┬i23_Hilite
  10. Result: i23_Hilite┬i4_Text
  11.  
  12. ItemType: PUSH
  13. Rect: 210,161,282,181
  14. Name: OK
  15. DefaultItem: TRUE
  16. AutoClose: TRUE
  17.  
  18. ItemType: PUSH
  19. Rect: 206,125,286,145
  20. Name: Cancel
  21. CancelItem: TRUE
  22. AutoClose: TRUE
  23.  
  24. ItemType: TEXT
  25. Rect: 0,0,202,14
  26. TextFont: Geneva
  27. TextSize: 10
  28. AutoSize: FALSE
  29. Name: Title
  30. TextStyle: Bold
  31. Text: test
  32.  
  33. ItemType: LIST
  34. Rect: 4,27,178,186
  35. TextFont: Monaco
  36. TextSize: 9
  37. AutoSize: FALSE
  38. Name: theList
  39. Text:   1/13/56     $433256 ┬ 12/18/95         $55 
  40. Script: get wsGet(wdID,"theList","SelectionText")┬if it¡empty then┬  put it into tt┬  wsSet wdID,"OK","Disabled", "true"┬  -- wsSet wdID,"Cancel","Disabled", "true"┬  wsSet wdID,"Clear List","Disabled", "true"┬  wsSet wdID,"Add To List","Disabled", "true"┬  wsSet wdID,"Prune List","Disabled", "true"┬  wsSet wdID,"delete","Disabled", "false"┬  wsSet wdID,"add","Visible", "false"┬  wsSet wdID,"change","DefaultItem", "true"┬  wsSet wdID,"0","Height", "276"┬  if the number of words of tt<3 then -- only 1 line selected┬    wsSet wdID,"change","Disabled", "FALSE"┬    wsSet wdID,"pricer","disabled","false"┬    wsSet wdID,"date","disabled","false"┬    wsSet wdID,"pricer","Text",stripit(word 2 of tt)┬    wsSet wdID,"date","Text",(word 1 of tt)┬    wsSet wdID,"date","Selection", "0,20"┬  else┬    wsSet wdID,"change","Disabled", "true"┬    wsSet wdID,"pricer","Text",""┬    wsSet wdID,"date","Text",""┬    wsSet wdID,"pricer","disabled","true"┬    wsSet wdID,"date","disabled","true"┬  end if┬else┬  wsSet wdID,"0","Height", "216"┬  wsSet wdID,"OK","Disabled", "false"┬  -- wsSet wdID,"Cancel","Disabled", "false"┬  wsSet wdID,"Clear List","Disabled", "false"┬  wsSet wdID,"Add to List","Disabled", "false"┬  wsSet wdID,"Prune List","Disabled", "false"┬  wsSet wdID,"change","Disabled", "true"┬  wsSet wdID,"pricer","disabled","false"┬  wsSet wdID,"date","disabled","false"┬end if┬┬
  41.  
  42. ItemType: PUSH
  43. Rect: 206,84,286,101
  44. TextFont: Geneva
  45. TextSize: 10
  46. Name: Clear List
  47. Script: wsSet wdID,"theList","Text", ""┬wsSet wdID,"Graph Values","Disabled","True"┬wsSet wdID,"num","Text",("0 values")
  48.  
  49. ItemType: TEXT
  50. Rect: 5,190,272,202
  51. TextFont: Geneva
  52. TextSize: 9
  53. Name: instr
  54. Text: Click on a line to edit it; shift-click to delete multiple lines
  55.  
  56. ItemType: LBL
  57. Rect: 29,228,57,241
  58. TextFont: Geneva
  59. TextSize: 10
  60. Text: Date:
  61.  
  62. ItemType: LINE
  63. Rect: 5,218,269,219
  64.  
  65. ItemType: LBL
  66. Rect: 141,228,174,241
  67. TextFont: Geneva
  68. TextSize: 10
  69. Text: Value:
  70.  
  71. ItemType: TEXT
  72. Rect: 56,227,121,244
  73. TextFont: Geneva
  74. TextSize: 10
  75. AutoSize: FALSE
  76. Name: date
  77. LockText: FALSE
  78. Text: 11/11/95
  79.  
  80. ItemType: TEXT
  81. Rect: 172,227,237,244
  82. TextFont: Geneva
  83. TextSize: 10
  84. AutoSize: FALSE
  85. Name: pricer
  86. LockText: FALSE
  87.  
  88. ItemType: PUSH
  89. Rect: 99,252,171,269
  90. TextFont: Geneva
  91. TextSize: 10
  92. Disabled: TRUE
  93. Name: change
  94. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬get wsGet(wdID,"date","Text")┬put it into dd┬get wsGet(wdID,"pricer","Text")┬put stripit(it) into newPrice┬if (newPrice¡empty) and (newPrice is a number) then┬  get wsGet(wdID,"Title","Text")┬  if it="Index List" then┬    put round(newPrice) into pp┬  else┬    if the short name of this bg="stocks" then┬      get wsGet(wdID,"price","Hilite")┬      if it then┬        set numberformat to "0.000"┬        put newPrice into pp┬        add 0 to pp┬      else┬        put placeSign(round(newPrice)) into pp┬      end if┬    else┬      put placeSign(round(newPrice)) into pp┬    end if┬  end if┬  put align((dd&","&pp),"9,R,  ","10,R, ") into aa┬  wsSet wdID,"theList","TextOfSelection",aa┬  get wsGet(wdID,"theList","Text")┬  put NTFSqueezeText(it,"A") into aa┬  if the number of lines of aa>1 then put fullsort(aa,"t=D","c=word 1") into aa┬  wsSet wdID,"theList","Text", aa┬  wsSet wdID,"0","Height", "216"┬  wsSet wdID,"OK","Disabled", "false"┬  wsSet wdID,"OK","DefaultItem", "true"┬  wsSet wdID,"Cancel","Disabled", "false"┬  wsSet wdID,"Clear List","Disabled", "false"┬  wsSet wdID,"Add to List","Disabled", "false"┬  wsSet wdID,"Prune List","Disabled", "false"┬else┬  alertNote("Value needs to be a number.")┬  wsSet wdID,"pricer","Selection", "0,20"┬end if┬set numberformat to "0"┬--end mouseUp
  95.  
  96. ItemType: PUSH
  97. Rect: 189,252,269,269
  98. TextFont: Geneva
  99. TextSize: 10
  100. Name:  cancel 
  101. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬wsSet wdID,"0","Height", "216"┬wsSet wdID,"theList","Selection", ""┬wsSet wdID,"OK","Disabled", "false"┬wsSet wdID,"OK","DefaultItem", "true"┬wsSet wdID,"Cancel","Disabled", "false"┬wsSet wdID,"Clear List","Disabled", "false"┬wsSet wdID,"Add to List","Disabled", "false"┬wsSet wdID,"Prune List","Disabled", "false"┬wsSet wdID,"change","Disabled", "true"┬wsSet wdID,"delete","Disabled", "false"┬wsSet wdID,"add","Visible", "false"┬wsSet wdID,"pricer","disabled","false"┬wsSet wdID,"date","disabled","false"┬--end mouseUp
  102.  
  103. ItemType: PUSH
  104. Rect: 206,27,286,44
  105. TextFont: Geneva
  106. TextSize: 10
  107. Name: Add To List
  108. Script: --on mouseUp  wdID,wdName,objNo,objName,objValue┬wsSet wdID,"add","Visible", "true"┬wsSet wdID,"OK","Disabled", "true"┬wsSet wdID,"Cancel","Disabled", "true"┬wsSet wdID,"Clear List","Disabled", "true"┬wsSet wdID,"Add To List","Disabled", "true"┬wsSet wdID,"Prune List","Disabled", "true"┬wsSet wdID,"delete","Disabled", "true"┬wsSet wdID,"date","Text", ""┬wsSet wdID,"pricer","Text", ""┬wsSet wdID,"add","DefaultItem", "true"┬wsSet wdID,"date","Text",(the short date)┬wsSet wdID,"0","Height", "276"┬wsSet wdID,"date","Selection", "0,20"┬--end mouseUp
  109.  
  110. ItemType: LINE
  111. Rect: 218,112,276,113
  112.  
  113. ItemType: PUSH
  114. Rect: 206,55,286,72
  115. TextFont: Geneva
  116. TextSize: 10
  117. Name: Prune List
  118. AutoClose: TRUE
  119.  
  120. ItemType: PUSH
  121. Rect: 97,252,177,269
  122. TextFont: Geneva
  123. TextSize: 10
  124. AutoSize: FALSE
  125. Visible: FALSE
  126. Name: add
  127. Script: get wsGet(wdID,"date","Text")┬put it into dd┬get wsGet(wdID,"pricer","Text")┬put stripit(it) into newPrice┬if (newPrice¡empty) and (newprice is a number) then┬  get wsGet(wdID,"Title","Text")┬  if it="Index List" then┬    put round(newPrice) into pp┬  else┬    if the short name of this bg="stocks" then┬      get wsGet(wdID,"price","Hilite")┬      if it then┬        set numberformat to "0.000"┬        put newPrice into pp┬        add 0 to pp┬      else┬        put placeSign(round(newPrice)) into pp┬      end if┬    else┬      put placeSign(round(newPrice)) into pp┬    end if┬  end if┬  put align((dd&","&pp),"9,R,  ","10,R, ") into aa┬  get wsGet(wdID,"theList","Text")┬  put return&aa after it┬  put NTFSqueezeText(it,"A") into aa┬  if the number of lines of aa>1 then put fullsort(aa,"t=D","c=word 1") into aa┬  wsSet wdID,"theList","Text",aa┬  wsSet wdID,"0","Height", "216"┬  wsSet wdID,"OK","Disabled", "false"┬  wsSet wdID,"OK","DefaultItem", "true"┬  wsSet wdID,"Cancel","Disabled", "false"┬  wsSet wdID,"Clear List","Disabled", "false"┬  wsSet wdID,"Add to List","Disabled", "false"┬  wsSet wdID,"Prune List","Disabled", "false"┬  wsSet wdID,"change","Disabled", "true"┬  wsSet wdID,"delete","Disabled", "false"┬  wsSet wdID,"add","Visible", "false"┬  get wsGet(wdID,"theList","Text")┬  put the number of lines of it into num┬  if num >1 then┬    wsSet wdID,"Graph Values","Disabled", "FALSE"┬  else┬    wsSet wdID,"Graph Values","Disabled", "True"┬  end if┬  set numberformat to "0"┬  get wsGet(wdID,"theList","Text")┬  put the number of lines of it into num┬  wsSet wdID,"num","Text",(num&" values")┬else┬  alertNote("Value needs to be a number.")┬  wsSet wdID,"pricer","Selection", "0,20"┬end if
  128.  
  129. ItemType: PUSH
  130. Rect: 4,252,84,269
  131. TextFont: Geneva
  132. TextSize: 10
  133. Name: delete
  134. Script: wsSet wdID,"theList","TextOfSelection",""┬wsSet wdID,"0","Height", "216"┬wsSet wdID,"OK","Disabled", "false"┬wsSet wdID,"OK","DefaultItem", "true"┬wsSet wdID,"Cancel","Disabled", "false"┬wsSet wdID,"Clear List","Disabled", "false"┬wsSet wdID,"Add to List","Disabled", "false"┬wsSet wdID,"Prune List","Disabled", "false"┬set numberformat to "0"┬get wsGet(wdID,"theList","Text")┬put the number of lines of it into num┬wsSet wdID,"num","Text",(num&" values")
  135.  
  136. ItemType: PUSH
  137. Rect: 203,2,289,19
  138. TextFont: Geneva
  139. TextSize: 10
  140. TextStyle: Bold
  141. AutoSize: FALSE
  142. Name: Graph values
  143. AutoClose: TRUE
  144.  
  145. ItemType: TEXT
  146. Rect: 6,203,292,215
  147. TextFont: Geneva
  148. TextSize: 9
  149. Name: note11
  150. Text: (values are stored only if this option is chosen in Preferences)
  151.  
  152. ItemType: TEXT
  153. Rect: 4,14,46,26
  154. TextFont: Geneva
  155. TextSize: 9
  156. Name: num
  157. Text: 2 values
  158.  
  159. ItemType: RAD
  160. Rect: 69,14,117,26
  161. TextFont: Geneva
  162. TextSize: 9
  163. Visible: FALSE
  164. Name: value
  165. Hilite: TRUE
  166. Script: wsSet wdID,"theList","Text",fld "valueList"┬wsSet wdID,"0","Height", "216"┬get wsGet(wdID,"theList","Text")┬put the number of lines of it into num┬if num<2 then┬  wsSet wdID,"Graph values","Disabled", "true"┬  wsSet wdID,"Prune List","Disabled", "true"┬  if num<1 then┬    wsSet wdID,"Clear List","Disabled", "true"┬  end if┬else┬  wsSet wdID,"Graph values","Disabled", "false"┬  wsSet wdID,"Prune List","Disabled", "false"┬  wsSet wdID,"Clear List","Disabled", "false"┬end if┬wsSet wdID,"num","Text",(num&" values")┬┬wsSet wdID,"OK","Disabled", "false"┬wsSet wdID,"Add to List","Disabled", "false"┬wsSet wdID,"change","Disabled", "true"┬wsSet wdID,"pricer","disabled","false"┬wsSet wdID,"date","disabled","false"
  167.  
  168. ItemType: RAD
  169. Rect: 117,14,164,26
  170. TextFont: Geneva
  171. TextSize: 9
  172. Visible: FALSE
  173. Name: price
  174. Script: wsSet wdID,"theList","Text",fld "priceList"┬wsSet wdID,"0","Height", "216"┬get wsGet(wdID,"theList","Text")┬put the number of lines of it into num┬if num<2 then┬  wsSet wdID,"Graph values","Disabled", "true"┬  wsSet wdID,"Prune List","Disabled", "true"┬  if num<1 then┬    wsSet wdID,"Clear List","Disabled", "true"┬  end if┬else┬  wsSet wdID,"Graph values","Disabled", "false"┬  wsSet wdID,"Prune List","Disabled", "false"┬  wsSet wdID,"Clear List","Disabled", "false"┬end if┬wsSet wdID,"num","Text",(num&" values")┬┬wsSet wdID,"OK","Disabled", "false"┬wsSet wdID,"Add to List","Disabled", "false"┬wsSet wdID,"change","Disabled", "true"┬wsSet wdID,"pricer","disabled","false"┬wsSet wdID,"date","disabled","false"